home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
A-Monthly Disks
/
(c)aah.d64
/
temptation1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
3KB
|
104 lines
1 REM(null)
5 REM(null)
8 POKE775,191
10 IFA=0THENA=1:LOAD"PICDRAW.SYS",8,1
30 FILE$="TEMPTATION2"+CHR$(13)
40 LADDR=32768:NAME=40447
50 GOSUB 1000
60 REM:THIS PROGRAM IS IN THE PUBLIC
62 REM:DOMAIN. PLEASE SHARE IT WITH
64 REM:CHURCHES AND PRIVATE CHRISTIAN
66 REM:SCHOOLS.
100 SYS36867:REM LOADER
110 SYS36886:REM XHIRES
120 SYS36873:REM CLRRM
129 POKE53265,PEEK(53265)AND239
130 SYS36870:REM REDRAW
131 POKE53265,PEEK(53265)OR16
140 FORT=1TO6000:NEXT
200 SYS36883
201 PRINTCHR$(8):PRINTCHR$(142)
202 READA$,B$,C$,D$,E$,F$,G$,H$,I$
203 IFG$="THE [205]ESSIAH"THEN500
204 IFA$="QZQZ"THEN700
205 PRINT"[147] [212][200][197][160][212][197][205][208][212][193][212][201][207][206][160][207][198][160][202][197][211][213][211][160][201][206][160][204][213][203][197]"
206 PRINT" BY [211]TEVE [215]ILLIAMS"
207 PRINT" [209]UESTION - "A$
208 PRINT""B$
210 PRINT""C$
212 PRINT""D$
214 PRINT" [211]CRIPTURE - "E$
216 PRINT" [215]AS IT (A) "F$
217 PRINT"OR WAS IT (B) "G$
218 J$=""
219 POKE198,0
220 PRINT" ANSWER A OR B"
221 GETJ$:IFJ$=""THEN221
250 IFJ$=H$THEN300
252 IFJ$=I$THEN330
253 GOTO221
300 PRINT" VERY GOOD - THAT IS CORRECT!"
303 CT=CT+1
304 FORT=1TO3000:NEXT
305 GOTO202
330 IFI$="A"THENK$="B"
332 IFI$="B"THENK$="A"
334 PRINT" SORRY - THE ANSWER WAS "K$
338 FORT=1TO4000:NEXT
340 GOTO202
400 DATA"[202]ESUS' TEMPTATION","CAME IMMEDIATELY","AFTER HIS [164][164][164][164][164][164][164][164][164].",
402 DATA"[204]UKE 3:21-22","BAPTISM BY [202]OHN","HIS FIRST MIRACLE","A","B"
404 DATA"[200]OW LONG WAS [202]ESUS","IN THE WILDERNESS","DURING HIS TEMPTATION?",
406 DATA"[204]UKE 4:2","ONE WEEK","40 DAYS","B","A"
408 DATA"[215]HAT DID [202]ESUS EAT","DURING THIS PERIOD","OF TIME?",
410 DATA"[204]UKE 4:2","NOTHING","LOCUSTS AND HONEY","A","B"
412 DATA"[194]ECAUSE HE WAS HUNGRY","HE WAS TEMPTED TO","CHANGE WHAT INTO","BREAD?"
414 DATA"[204]UKE 4:3","A STONE","A TREE","A","B"
416 DATA"[202]ESUS' ANSWERS TO THE","DEVIL ALWAYS BEGAN","WITH WHAT WORDS?",
418 DATA"[204]UKE 4:4, 8, 12","[199]ET BEHIND ME [211]ATAN","[201]T IS WRITTEN","B","A"
420 DATA"[202]ESUS SAID, '[205]AN","SHALL NOT LIVE BY","[164][164][164][164][164][164][164][164] ALONE.'",
422 DATA"[204]UKE 4:4","MILK AND HONEY","BREAD","B","A"
424 DATA"[201]N THE SECOND TEMPTATION","THE DEVIL OFFERED","[202]ESUS WHAT?",
426 DATA"[204]UKE 4:5-6","FOOD AND WATER","THE KINGDOMS OF THE WORLD","B","A"
428 DATA"[215]ORLDLY KINGDOMS WERE","OFFERED IF [202]ESUS","WOULD DO WHAT?",
430 DATA"[204]UKE 4:7","WORSHIP THE DEVIL","CURSE [199]OD","A","B"
432 DATA"[201]N THE LAST TEMPTATION","[202]ESUS WAS TEMPTED TO","THROW HIMSELF DOWN"
434 DATA"FROM WHERE?","[204]UKE 4:9","[205]OUNT [211]INAI","THE PINNACLE OF THE TEMPLE"
435 DATA"B","A"
436 DATA"[202]ESUS RESPONDED BY","SAYING, '[217]OU SHALL","NOT TEMPT [164][164][164][164][164][164][164][164][164].'",
438 DATA"[204]UKE 4:12","THE [204]ORD YOUR [199]OD","THE [205]ESSIAH","A","B"
450 DATA"QZQZ",,,,,,,,,,
500 PRINT" [210]EMEMBER OUR OPENING PICTURE?"
501 FORT=1TO3000:NEXT
502 SYS36886
503 FORT=1TO4000:NEXT
504 SYS36883
506 PRINT"[147] [212][200][197][160][212][197][205][208][212][193][212][201][207][206][160][207][198][160][202][197][211][213][211][160][201][206][160][204][213][203][197]"
508 PRINT" BY [211]TEVE [215]ILLIAMS"
510 GOTO207
700 PRINT"[147] YOUR SCORE WAS"CT"OUT OF 10."
702 PRINT" DO YOU WANT TO REVIEW AGAIN? (Y)"
703 PRINT" OR QUIT? (N)"
704 GETA$:IFA$=""THEN704
708 IFA$="Y"THEN714
710 IFA$="N"THEN730
712 GOTO704
714 CT=0
715 RESTORE
716 SYS36886:REM XHIRES
720 GOTO140
730 SYS36886:REM XHIRES
732 FORT=1TO4000:NEXT
740 POKE775,167
750 SYS 64738
760 STOP
1000 REM
1010 LH=INT(LADDR/256):LL=LADDR-(LH*256)
1020 POKE 36878,00:POKE 36879,158
1030 POKE 36880,LL:POKE 36881,LH
1040 REM
1050 FOR I=1 TO LEN(FILE$)
1060 C=ASC(MID$(FILE$,I,I)):POKE NAME+I,C
1070 NEXT I
1080 RETURN